home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 2001 May / SGI IRIX Base Documentation 2001 May.iso / usr / share / catman / p_man / cat3 / libblas / amax.z / amax
Encoding:
Text File  |  1998-10-30  |  4.6 KB  |  67 lines
  1.  
  2.  
  3.  
  4. IIII____AAAAMMMMAAAAXXXX((((3333FFFF))))                                                          IIII____AAAAMMMMAAAAXXXX((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      idamax, isamax, izamax, icamax - BLAS Maximum index functions
  10.  
  11. FFFFOOOORRRRTTTTRRRRAAAANNNN 77777777 SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
  12.      iiiinnnntttteeeeggggeeeerrrr ffffuuuunnnnccccttttiiiioooonnnn iiiiddddaaaammmmaaaaxxxx(((( nnnn,,,, xxxx,,,, iiiinnnnccccxxxx ))))
  13.      iiiinnnntttteeeeggggeeeerrrr           iiiinnnnccccxxxx,,,, nnnn
  14.      ddddoooouuuubbbblllleeee pppprrrreeeecccciiiissssiiiioooonnnn  xxxx(((( 1111 ))))
  15.  
  16.      iiiinnnntttteeeeggggeeeerrrr ffffuuuunnnnccccttttiiiioooonnnn iiiissssaaaammmmaaaaxxxx(((( nnnn,,,, xxxx,,,, iiiinnnnccccxxxx ))))
  17.      iiiinnnntttteeeeggggeeeerrrr          iiiinnnnccccxxxx,,,, nnnn
  18.      rrrreeeeaaaallll             xxxx(((( 1111 ))))
  19.  
  20.      iiiinnnntttteeeeggggeeeerrrr ffffuuuunnnnccccttttiiiioooonnnn iiiizzzzaaaammmmaaaaxxxx(((( nnnn,,,, xxxx,,,, iiiinnnnccccxxxx ))))
  21.      iiiinnnntttteeeeggggeeeerrrr          iiiinnnnccccxxxx,,,, nnnn
  22.      ccccoooommmmpppplllleeeexxxx****11116666       xxxx(((( 1111 ))))
  23.  
  24.      iiiinnnntttteeeeggggeeeerrrr ffffuuuunnnnccccttttiiiioooonnnn iiiiccccaaaammmmaaaaxxxx(((( nnnn,,,, xxxx,,,, iiiinnnnccccxxxx ))))
  25.      iiiinnnntttteeeeggggeeeerrrr          iiiinnnnccccxxxx,,,, nnnn
  26.      ccccoooommmmpppplllleeeexxxx          xxxx(((( 1111 ))))
  27.  
  28.  
  29. CCCC SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
  30.      IIIInnnntttteeeeggggeeeerrrr iiiiddddaaaammmmaaaaxxxx(((( nnnn,,,, xxxx,,,, iiiinnnnccccxxxx ))))
  31.      IIIInnnntttteeeeggggeeeerrrr           iiiinnnnccccxxxx,,,, nnnn;;;;
  32.      ddddoooouuuubbbblllleeee            ((((****xxxx))))[[[[ nnnn ]]]];;;;
  33.  
  34.      IIIInnnntttteeeeggggeeeerrrr iiiissssaaaammmmaaaaxxxx(((( nnnn,,,, xxxx,,,, iiiinnnnccccxxxx ))))
  35.      IIIInnnntttteeeeggggeeeerrrr          iiiinnnnccccxxxx,,,, nnnn;;;;
  36.      ffffllllooooaaaatttt            ((((****xxxx))))[[[[ nnnn ]]]];;;;
  37.  
  38.      IIIInnnntttteeeeggggeeeerrrr iiiizzzzaaaammmmaaaaxxxx(((( nnnn,,,, xxxx,,,, iiiinnnnccccxxxx ))))
  39.      IIIInnnntttteeeeggggeeeerrrr          iiiinnnnccccxxxx,,,, nnnn;;;;
  40.      ZZZZoooommmmpppplllleeeexxxx          ((((****xxxx))))[[[[ nnnn ]]]];;;;
  41.  
  42.      IIIInnnntttteeeeggggeeeerrrr iiiiccccaaaammmmaaaaxxxx(((( nnnn,,,, xxxx,,,, iiiinnnnccccxxxx ))))
  43.      IIIInnnntttteeeeggggeeeerrrr          iiiinnnnccccxxxx,,,, nnnn;;;;
  44.      CCCCoooommmmpppplllleeeexxxx          ((((****xxxx))))[[[[ nnnn ]]]];;;;
  45.  
  46.  
  47. DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
  48.      iiiiddddaaaammmmaaaaxxxx, iiiissssaaaammmmaaaaxxxx, iiiizzzzaaaammmmaaaaxxxx, and iiiiccccaaaammmmaaaaxxxx, return the index of the maximum value
  49.      of vector xxxx.  The vector xxxx has length nnnn and increment iiiinnnnccccxxxx.
  50.      For iiiizzzzaaaammmmaaaaxxxx and iiiiccccaaaammmmaaaaxxxx , the norm of each value is taken as:
  51.  
  52.            Abs( Real( x(i) ) ) + Abs( Imag( x(i) ) )
  53.  
  54.  
  55. AAAAUUUUTTTTHHHHOOOORRRR
  56.           Jack Dongarra, linpack, 3/11/78.
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.